home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / OpacityMapping.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  527 b   |  24 lines

  1. ReadArchive "defshaders.vs"
  2.  
  3. static skymap = ImageFile("Sky5i.jpg",NORMALIZED)
  4.  
  5. Declare treemat = Shader [ FunctionalSurface [
  6.   Color PlanarImageMapping(ImageFile("Tree03.tga",NORMALIZED),(u, 0, v),0)
  7.   Kd 0.9*Opacity
  8.   Ks(0.1*Opacity,'1,1,1')
  9.   Kt(1.0-Opacity,1,'1,1,1')
  10.   BlinnSpecularBRDF 2
  11.  ]
  12. ]
  13.  
  14. Declare glass = Shader [ FunctionalSurface [
  15.   Color '.753529, .472549, .753529'
  16.   Ka 0.025
  17.   Kd 0.0
  18.   Ks 0.3
  19.   Kt((0.98*|N.I|<0.1?0.1 : 0.98*|N.I|), 1.4, '1,1,1')
  20.   Kr 0.1
  21.   GaussianSpecularBRDF 8
  22.  ]
  23. ]
  24.